home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / programming / assembly / ex4_number2 / os_interrupt.s / os_interrupt.s
Encoding:
Text File  |  1992-09-02  |  793 b   |  52 lines
  1.  
  2. ;---- Vertical Blank Interrupt Functions ----
  3.  
  4.  
  5.  
  6. setvbint    lea    mod,a0
  7.         bsr    mt_init
  8.         
  9.         moveq    #5,d0
  10.         lea    vbintserver(pc),a1
  11. ;        lea    vbintname(pc),a0
  12. ;        move.l    a0,10(a1)
  13.         lea    vbint(pc),a0
  14.         move.l    a0,18(a1)        
  15.         move.l    4.w,a6
  16.         jsr    -168(a6)        ;addintserver
  17.  
  18. * ;below is for TEST PURPOSES ONLY!
  19.         
  20. waww        cmp.b    #255,$dff006
  21.         bne.s    waww
  22.     
  23.         btst    #6,$bfe001
  24.         bne.s    waww
  25. *        
  26.  
  27.  
  28. resetvbint    moveq    #5,d0
  29.         lea    vbintserver(pc),a1
  30.         move.l    4.w,a6
  31.         jsr    -174(a6)        ;remintserver
  32.  
  33.         bsr    mt_end
  34.         rts
  35.         
  36. vbint        movem.l    d0-d7/a0-a6,-(sp)
  37.         bsr    mt_music
  38.         movem.l    (sp)+,d0-d7/a0-a6
  39.         rts
  40.  
  41. VBIntServer    dc.l 0,0
  42.         dc.b 2,0            ; type, priority
  43.         dc.l 0                ;vbintname
  44.         dc.l 0,0
  45.  
  46. vbintname    dc.b "VBlank_Name",0
  47.         even
  48.  
  49.         include    'work:asm-one/replays/pt-play.s'
  50.         even
  51. mod        incbin    'work:asm-one/modules/mod.dance'
  52.